CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 

CCCCCCCCCCCC §=DDDDDDDDDDDD UUU UUU 
ccc DDD ODD UUU UUU 
ccc DDD DOD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DDD DDD UUU UUU 
ccc DOD DDD UUU UUU 
ccc DDD uuu 
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000 MODULE Lexical (IDENT=° oe 
000 OPTLEVEL=5, ZIP, 
B08 ADDRESSING_MODE (EXTERNAL=GENERAL) ) 
| 4 = BEGIN 
j B98 leeeReRAeeeREK RHR RHeHAHKeHeHeeKeeeeeeerereeeerereneKeeeeeeeeKeeeeeeeeeeees 
'® 
| 000 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
00 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
0 '® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LIC AND WITH THE 
!® INCLUSION CF THE ABOVE Spit NOTICE. THIS SOFTWARE OR ANY OTHER 


® 

® 

® 

+ 

® 

— 

® 

¥ 

i 0 : 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. * 
® 

© 

® 

® 

a 

e 

* 

® 

& 

® 


— 
m 
2 
mn 
m 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
' ConPOkaT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


' DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See Ree REAR AEAAAAAAAAAAAAAAATAAAAAAAA AH TATAAEKA Kee eeeeAKeeeeeeeeeeree et 


le 
} Facility: Command Definition Utility, Lexical Analysis 


Abstract: This module provides the lexical analysis routines for the 
Command Definition Utility. These routines handle the 
spec of CLD input files and the lexical analysis of 

e files. 


em wm ww ww ole lolololololololololeleloeloloelolololo) 


BF ANAMAWAA WMI AIR PONPINIPYPINININIDY 2 2 OOOO OO 
WN — OC ODNOUN EWN $09 ODNOUEWN (OOO NOAUE UN SO OONOUE WN 


See the PARSE1 module for an overview of CDU parsing. 
Environment: Standard CDU environment. 
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NE eee & 
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a ae a ee ee ee ee a ee ae a a a a dd od od od OOO 


' 
i 
] 
i 
i 
i 
i 
00 : Author: Paul C. Anagnostopoulos 
Boe ; Creation: 29 November 1982 
0044 i Modifications: 
0046 1! ¥04-006 BLS0348 Benn Schreiber 29-AUG-1984 
open Put status from find_file into fab sts field. 
0049 1: V04-005 BLS0276 _ Benn Schreiber 25-F EB-1984 
2 it Correct small problem in error reporting 
5 0052 i v04-004 BLS0270 _ Benn Schreiber 9-F EB-1984 
2 Boaz } Correct comment handling with unquoted strings 
5 0055 ; v04-003 BLS0269 : Benn Schreiber 6-FEB-1984 
é Bes Convert to using LIBSFIND_FILE 
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v04-002 BLS0247 Benn Schreiber 28-Nov-1983 
Correct obscure file opening problems. 


v04-001 PCA1025 Paul C. roe me ag oy” 25-Jul-1983 
Change character class table a conform to the DEC 
international character set. 


Library ,sysSlibrary: Lib’; 
require ‘cdureq'; 


vuvv 
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forward routine 

cduSopen_next_cid. 
cdu$report_!{3iing_heading2: novalue, 
ee 1 pl pe ay el novalue, 
cdu$token_must_be: novalue, 
cdu$Sreport_syntax_error: novalue; 


; ExTERNAL REFERENCES 


external routine 
cduSeject_listing_pege, 
cdu$report_Listing_Line, 
cdu$Sreport_rms_error, 
cli$get_vaTue, 
Lib$find_file, 
Lib$signal, 

str$upcase; 


$shr_msgdef(cdu,17,local, 
(closein,severe), 
(openin,error), 
(readerr,severe) 


a a et at a a 4 = 2 — = od 2s — 2 = ss sd — 2 
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1 4 
1 
; INPUT FILE CONTROL BLOCK 


1:30 VA Liss-32 V4.0-74 Page 
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; 0509 1 

$101 ats 1! The following items define the RMS control blocks needed to open and 

; 106 0515 1! read CLD input files. 

: 10 g81 own 

; 105 O18 1 cld_xabdat: Sxabdat(), 

: 107 0518 1 cld_esal: block(nam$c_maxrss,byte], 

: 108 0519 #1 cld_rsal: block(nam$c_maxrss,bytel, 

; 109 P 0520 1 cld_nami: $nam( 

; 110 P 0521 1 esa=cld_esal 

: 111 P 05 : 1 ess=%alTocation(cld_esal), 

: a P 05 1 rsa=cld rsa 

. 3 P0524 1 rss=%allocation(cld_rsal) 

: i 0896 | , 

: 116 0527 1 cld_spec: $bblock{dsc$c_s_bln] preset(Cdsc$b_class] = dsc$k_class_d, 
3: (117 0528 1 Cdsc$b dtypel = dscSk_dtype_t). 

; «(118 b283 1 out_spec: $bblock(Cdsc$c_s_bln] preset(Cdsc$b_class] =dsc$k_class_d, 
3 («119 0530 1 Cdsc$b_dtype] = dsc$k_dtype_t), 

3 130 4 b233 ; cld_fab: $fab( , : 

3 ac=get, 

: 138 Poss | fop=esqo>, 

He BBE a 

; 195 P 0336 1 xab=e ld, xabdat 

: 189 0338 Ps 

: 128 0539 1 cld_buffer: block(tkn_k_max_length, byte], 

3 94 P 0540 1 cld_rab: $rab( 

: 1 P 0541 1 fab=cld_fab, 

s 131 P B2e¢ 1 rac=seq, 

; 13 P 0543 1 rop=<rah,loc,nlk>, 

; 13 P 0544 (1 ubf=cld_buffer, 

3 (134 P0545 1 usz=ZalTocation(cld_buf fer) 

: 13 Ose? | 

; 137 0548 1! SCANNING CONTROL 

Py ! 3 beep : ' eeeeeee eee eeeee eeerre ern ewecore = 

: re b2a3 ‘ ! The following global item counts Lines as we read them from the CLD file. 
; 14@ §388 1 global 

$ rt 8228 ! cdu$gl_Line_number: Long; 

145 226 1 ! The following two items describe the token after it has been extracted 
: «146 557 1! from the CLD file. Each token has an associated class, plus we save the 
; rt 4 228 ' ' token itself. 

3 149 0560 1 global 

; 150 0561 1 cdu$gl_token_class: long, 

3 43) 3266 : dbuf fer (cdu$gq_token, tkn_k_max_length); 

: 188 0564 1 ! The following item keeps track of the number of errors encountered in a 
3; «6156 0565 1 ! CLD file. 


global 
cdu$gl_cld_errors: long; 


CON 


own 
! The following item tells us whether or not we are currently recovering 
! from a syntax error. 


Wr 


recovering: boolean, 
find_context; 'FIND_FILE context 
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's 166 576 1 !4¢ 

; 167 577 1 ! Description: This routine is called to open the next CLD input file, 

; 198 278 ! } which contains the definitions for one or more DCL commands. 

; 170 9980 Parameters: none 

. oF 0582 1! Returns: By reference, the FAB for the CLD input file, 

: 178 o588 } or zero if no more files. me F 

: 175 0585 1 : Notes: 

; 176 0586 1 !-<- 

: 177 Bee! 1 

; 178 B2e8 1 RM Oe cduSopen_next_cld 

: 180 0590 ; 

; 181 0591 local 

: 18s b298 ; status: long; 

> 184 0594 

; + +4 £344 2 ! Determine if we have just finished with a CLD input file. 

; 187 0597 : if .cld_fablfab$w_ifi] eqlu 0 then ( 

; 189 0599 ; ! Nope, this must be the first call, or we just recursed needing 

; ist pene ; ! another CLD spec. Get the next input CLD spec. 

: 192 060 status = cli$get_value(dtext('CLD_SPEC'),cld_spec); 

: 193 0603 3 if not gh oben , then , . = 

: 13° boos 3 return 0; 

5 196 0606 : ) else ( 

3: 197 0607 3 

; Hh +e ! we just finished processing a CLD input file. so close it. 

; 200 0610 status = $close(fab=cld_fab); 

; 201 0611 if not .status then F 

: $08 Belg H . cdu$Sreport_rms_error(msg(cdu$_closein) ,cld_fab); 

> 204 0614 2 ° 

; 205 0615 ! OK, now we go into a loop in hopes of determining a file that matches the 

: $06 Bei6 ! current spec and opening it. 

: 208 0618 3 Loop ( 

; $98 ee local rms_stv; 

; 211 0621 Status = LibSfind_file(cid_spec,out_spec,find_context, 

§ $i¢ +354 ey Sdescriptort® CLb’),, Ocrms. stv ZREF (2)); 

4. 062 cld_fab{fab$b_fns] = .out_spec dsc$w_lengthd; 

: 214 4 cld-fab{fab$l-fna) = .out~specldsc$a_pointer); 

: 215 625 cld_fab(fab$l“sts] = .stafus; 

; 1 $ cld_fablfab$l_stv] = .rms_stv; 

; + 4 if Tstatus eqlu rms$_nmf then exitloop; 

: 19 629 ' If we have a file to open, then do it. Otherwise report the error 

: 231 gogo ! and loop for another try. 

: 222 0632 4 if .status then ( 


i 


oe 
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+506 

; 3 633 4 status = Sopen(fab=cld_fab); 

3 4 634 2 if .status then ( 
3 5 655 status = Sconnect(rab=cld_rab); 

3 $ 6 $ 6 if .status then 

; 6 6 cdu$gl_Lline number = 0; 

; 8 638 return cld_fab; 

3 > 639 ) else 

3 0 0640 cduSreport_rms_error(msg(cdu$_openin) ,cld_rab); 
H 1 0641 4 ) else 

; § Ree 4 Soak cduSreport_rms_error(msg(cdu$_openin) ,cld_fab); 
; else 

3 i ote ; cdu$Sreport_rms_error(msg(cdu$_openin),.find_context); 

; 0646 P 

3 7 0647 ! We don't have any more files that match the spec. Recurse to get the 
: 238 0648 i next spec. 

s gor 0649 

; 240 0650 return cduSopen_next_cld(); 

; 241 0651 ¢ 


END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


43 45 50 53 SF 44 4C 43 Q0000 P.AAB: .ASCII \CLD spac’ 
Q10E0008 00008 P.AAA: .LONG 1769%72 
000 ae 0000 -ADDRESS P.AAB 
44 4C 2—E Q0010 P.AAD: .ASCII \.CLD\ 
90000006 00014 P.AAC: .LONG 
00000000° 00018 -ADDRESS P.AAD 


.PSECT $OWNS,NOEXE,2 
12 00000 CLD_XABDAT: 


18 3 
0001 BYTE 44 3 
0000 00002 -WORD OQ 3 
00000000 00004 -LONG QO 2 
0000 00008 WORD j 
conte Ssee tine ? 
35000008 90018 £34 
000000 001C LONG 8 3 
000000 0020 LONG : 
000000004 00024 -LONG O(2) : 
002C CLD_ESA1: 
-BLKB 455 
601 g8 -BLKB 
012C CLD_RSA1: 
-BLKB 455 


92 ieee CLD NARs 


eTUTLE LEXICAL 
-IDENT \v04-000\ 
s BYTE 3 3 
60 0022D BYTE 6 3 
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0 
DUSGO_TOKEN+8 


114624 
CLD_BUFFER 
4 
55 
25 


§ 


R 
TOKEN: : 


TOKEN_CLASS:: 


ADDRESS 
-PSECT S$GLOBALS,NOEXE,2 


-ADDRESS CLD 
00000 CDUSGL_LINE 


BUFFER: 
“LONG 
CONTEXT: 
.BLKB 
.BL 
-BLK 


CLO_ 


Qrowowoons 


VWOTDVOK UM TOW 
Wee oe et OO 


Ooonrnnr Kw 


08 
00008 CdUSGQ_ 


00004 CDUSGL_ 
8. 


00431 
00434 FIND_ 
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00108 .BLKB 1 
0110 CDUSGL_CLD_ERRORS:: 
-BCKB 4 
.EXTRN CDUSEJECT_LISTING_PAGE 
«EXTRN CDUSREPORT_LISTING_LINE 
-EXTRN CDUSREPORT-RMS_ERROR 
sEXTRN CLISGET VACUE, LIBSFIND_FILE 
“EXTRN LIBSSIGFAL, STRSUPCASE ~ 
sEXTRN SYSSCLOSE, SYSSOPEN 
TEXTRN SYSS$CONNECT 
<PSECT $CODES,NOWRT,2 
0004 00000 eENTRY COUSOPEN. NEXT_CLD, Save R2 3; 0588 
5E 08 ce 9000¢ SUBL2 : 
0000" CF 85 0000 TSTW 3 = CLO. PAB+2 + 0597) 
18 12 00009 BNEQ i$ ~ : | 
0000" CF 9F 0000B PUSHAB CLD_SPEC : 0602. 
0000" CF 9F OO00F PUSHAB P.ARA : | 
000000006 00 02 FB 00013 CALLS #2, CLISGET_VALUE : 
52 50 DO OOO1A MOVL RO, STATUS ; 
25 52 Es 0001D BLBS STATUS, 3$ + 0603 
00B6 31 00029 BRW 9$ + 0604 | 
0000" CF 9F 00023 1$: PUSHAB CLD_FAB + 0610 
000000006 00 01 FB 00027 CALLS #1, “SYS$CLOSE ; 
52 50 D0 000¢E MOVL RO. STA : 
11 52 £8 00031 BLBS ‘STATUS, : 061 
0000" CF 9F 00034 PUSHAB CLD_F : 061 
00111054 8F DD 00038 PUSHL #1178292 : 
000000006 00 02 FB 0005E 2$ CALLS #2, CDUSREPORT_RMS_ERROR : 
6E 02 pO 00045 3$ MOVL #2, (SP) > 0622 | 
5E DD 00048 PUSHL SP ; 
08 AE 9F OO04A PUSHAB RMS. STV ; 0621 
7E 04 00040 LRL (SB) : 
0000' CF 9F O004F PUSHAB P.AAC + 0622 
0000" CF 9F 00053 PUSHAB FIND CONTEXT : 0621 
0000" CF 9F 00057 PUSHAB OUT_SPEC : 
0000" CF 9F 0005B PUSHAB CLD-SPEC : 
000000006 00 07 FB O005F CALLS #7, LIBSFIND_FILE : 
52 0 00 00066 MOVL RO, STATU : 
0000" CF 0000" CF 90 00069 MOVB  OUT_SPEC, CLD_FAB+52 + 0623 
0000" CF 0000" CF 00 00070 MOVL OUT" SPEC+4, rb FAB+44 : 0624 
0000" CF 52 00 00077 MOVL STATUS. CLO_FAB?8 > 0625 
000" CF 04 AE D 7C MOVL 3 ak FAB+12 > 0626 
000182CA = &F 52 D1 00088 CMPL eraTus” #99078 : 0627 
48 13 0008 BEQL «BS ; 
38 52 9 0088 BLBC STATUS, 6$ > 063 
0000° CF 9F 0008 PUSHAB CLD_FAB > 063 
000000006 00 g1 FB 009 CALLS al. "SYSSOPEN ; 
52 0D 09 MOVL as F 
21 52 £9 0009¢ BLBC er Tents > 0634 
0000° CF 9F 0009F PUSHAB CLD_RAB > 0635 
000000006 00 01 FB O0A3 CALLS a” SYSSCONNECT ; 
52 50 DO OOOAA MOVL RO. STATUS F 
OA 52 €9 OOOAD BLBC STATUS, 4$ > 0636 
0000" CF D4 000B0 CLRL § CDUSGL_LINE_NUMBER : 0637 


M15 
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50 0000" CF 9€ 00084 MOVAB CLD_FAB, RO : 0638 

o4 0089 RET : 
0000" CF 9F OOOBA 4$: PUSHAB CLD_RAB + 0640 

OA 11 0008E BRB ? : 
0000" CF 9F 000CO S$: PUSHAB CLD_FAB + 0642 

04 11 b00¢4 BRB 7$ F 
0000' cr DD 0006 68: PUSHL FIND CONTEXT + 0644 

0011109A —‘&F bp OOCA 7$: PUSHL #1118362 : 

FF6B 31 0000 BRW 2$ : 
FF28 CF FB 990 8$ CALLS #0, CDUSOPEN_NEXT_CLD + 0650 
50 b4 9009 9$ CLRL = RO + 0652 

4 00008 RET : 


; Routine Size: 220 bytes, Routine Base: $CODE$ + 0000 
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; 0653 1 !++ 

; 245 0654 1! Description: This routine is called from the LISTING module to generate 
; re 0655 1} the second “ety Line for a page header. This Line 
: ref bees : contains the CLD file spec and its creation dete. 

: 249 0658 1 | Parameters: None. 

; 250 0659 1! 

3 @o) 0660 1 ! Returns: Nothing. 

; $26 0661 1! 

3 $2 Boog 1 ! Notes 

> 254 0663 1 !-- 

4 $23 ees i GLOBAL ROUTINE cdu$ t_listi heading2 l 

: cdu$repor sting_headin : novalue 

; SSF 0666 2 = BEGIN — ‘. 

3 $26 0667 § 

3; 259 0668 bind 

; 260 0669 2 nam = .cld_fabCfab$l_namJ: block{.bytel; 

s 26) 0670 2 

3; 262 0671 2 

3; 2635 0672 2 ! Generate a heading Line with the CLD file's revision date, spec, and 
: 264 0673 2! revision number. 

: $2 ye} g du$ l Line( (cdu$_heading2) ,nobabble+4, 

; cdu$Sreport_Listing_line(msg(cdu$_headin nobabble+ 

; Ser 0676 3 Sate cla, pabdsttnabea. rat 

; 268 0677 2 oe pee rsl snantnans _rsal, 

3 269 0678 2 -cld_xabdatlxab$w_rvn] 

; 270 0679 2 

s ei 0680 2 return; 

s ete 0681 2 

3 et3 0682 1 END; 


-EXTRN CDUS_HEADING2 

0000 00000 -ENTRY CDUSREPORT -LISTING_HEADING2, Save nothing ; 0665. 
50 0000° CF 00 00002 OVL CLD_F R 3 0669 | 
7E 0000° CF 3C 00007 MOVZWL CLD ~KABDATS8, -(SP) : 0678. 
04 AO OD 0000C USHL 4(RO) : 0677. 

7E 03 AO 9A QOO0DF MOVZBL 3(RO), -(SP) : 
0000° CF 9F 00013 PUSHAB CLD_XABDAT+12 ; 0676 

00010004 8F DD 00017 USHL #65540 3 

00000000G 8F DD 0001D PUSHL #CDUS$_HEADING2 3 

000000006 00 06 FB B8053 CALLS #6, CBUSREPORT _LISTING_LINE 3 
; 04 0002A ET ; 0682 

3; Routine Size: 43 bytes, Routine Base: $CODE$ + O0DC 
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3 0683 1 !+4+ 

; 316 0684 1 ! Description: This routine ‘s called to obtain the next token from the 
3 a pes? : CLD file being compiled. 

: 219 0687 1 ! Parameters: hint rs deren by value, a hint about the “oe that 
; 280 0688 1! e caller expects an h=-string, which is 
; 281 0689 1! quoted string or arbitrary stuff ending at 
5 see 0690 1! certain delimiters. 

3; 6¢8 0691 1! : 

; 284 0692 1 ! Returns: Nothing 

; ¢39 0693 1! 

; $B9 0694 1 ! Notes 

; 287 0695 1 !-- 

; 288 0696 1 

3; 289 0697 1 GLOBAL ROUTINE cdu$get_next_token(hint: long): novalue 

: 290 0698 2 = BEGIN 

; 291 re eee 

3 $36 0700 builtin 

: 9 0701 nullparameter; 

3 296 070 

; 295 0703 2 Linkage | : : 

; 296 0704 2 jsb_for_speed = jsb(; register=0); 

: 297 0705 2 

; 298 0706 2 own 

>; 299 0707 2 Line_index: long, 

; 300 0708 2 char: byte, 

3; 301 0709 2 char_saved: boolean; 

3 302 0710 2 

s 50> 0711 2 local 

> 304 0712 2 status: long; 


o-_ 
~w 


ex 


<= 


VEWN OO OODNAUES WN OO ODNOUSWN OOM 


Fe et et eh nb ah el 
nm—O0on 


Pe TY pre rte: AWAWNAAIANIAWN AW 
ew 


CQOCCOCOCCOCOCOSO CS COO SCOCOCOC COCO CSO COCO OCOOCCOOOOOOOOoOO 
SIO NE AWN @ OC ODNAUE WN 0 ODNOU EWN S(O OONAYV EWN (OOOO Ww 


PADMA 


etfs Pa 14 
:CCDU.SRCILEXICAL.832;1 (7) 


! The following table maps each of the 256 ASCII character codes into 
! their corresponding character class. 


own 
char_class: vector(256,byte] initial (byte 
rep 3 of (tkn_k_invalid), 


! NUL = STX 

k_eof E 

Sof (tkn_k_invalid), 

tkn_k_ whitespace : 

2-of (tkn_k_invalid), 
_k_ignored, 

tkn_k_eo 

rep 18 of (tkn_k_invalid), 

tkn_k_whitespace, 


t+ #~w- 2B 
@ 
= 


tkn_k_dot, 

tkn_k_invalid, 

rep 10 of (tkn k_ symbol), 
rep 2 of (tkn_k_invalid), 
tkn_k_open_angle, 
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rep 63 of (tkn_k_symbol 


Ve 
ie 
rep 64 of (thE invalid), 
rep 1 of (tkn_R_tnvalid)- 
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! This internal routine is called to obtain the next character from the CLD 
! file. It handles reading Lines from the file and pull ing characters from 
' the Lines. It also writes the Lines into the Listing file. 
ROUTINE get_next_char : jsb_for_speed 
= BEGIN 
Local 


status: long; 


! If the Line number is zero, or we've run out of characters on the current 
! Line, let's get another Line. 


if .cdu$Sgl_line_number eqlu 0 or .Line_index gtru .cld_rablrab$w_rszJ] then ( 


! Sit in a loop reading Lines until we get one that isn't null. 
If we get end of file, return an ETX character. List the lines 
! as we go. 


do ( 
status = $get(rab=cld_rab); 
if .status eqlu rms$_eof chen 
return ETX; 
if not .status then 
; cdu$Sreport_rms_error(msg(cdu$_readerr) ,cld_rab); 
increment (cduSgi_ line fhumber) ; 
if .cld_rabCrab$w_rszJ eqlu 1 and ch$rchar(.cld_rabCrab$l_rbf]) eqlu FF then 
: cduSeject_listing_page() 
else 
cdu$Srenort_Listing_line(msg(cdu$_listline) ,nobabble+3, 
E -cau$gi_lLine_number,.cld_rabCrab$w_rsz),.cld_rabCrab$l_rbfi); 
) until .cld_rabCrab$w_rsz] nequ 0; 


' Reset the Line index to zero. 


: Line index = 0; 


! Now we can pull a character from the line. We always pretend that there 
! is a carriage return at the end. Make sure to increment the Line index. 


if .line_index lssu_.cld_rabCrab$w_rsz] then ( 
Increment (Line_index); Bs saat ee 
i os ,foture ch$rchar(.cld_rabCrab$l_rbfJ+.line_index-1); 
else 
increment (Line_index); 
: return CR; 


END; 


.PSECT SOWNS,NOEXE 2 
00438 LINE_INDEX: 
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1 
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5 
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ABER 


| 
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0000° CF 


000000006 
0001827A 


000000006 


OD 00 08 
00 09 
OF 
0000° 
10 
0000° 
00 
52 
8F 
50 
11 
0000" 
00111084 
00 
0000° 
01 0000* 
oc 0000° 
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08 
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.BLKB 
043C CHAR:  <BLKB 
043D CHAR. SAVED: 


-BLK 
00675 -BLK 

00# 00440 CHAR_CLASS: 
.BYTE 
04 00443 “BYTE 
00# 00444 “BYTE 
02 00449 “BYTE 
00# 0044A “BYTE 
1 O044C “BYTE 
O# 0044E “BYTE 
02 00460 “BYTE 
00# 00465 “BYTE 
07 00468 “BYTE 
00# 0046A “BYTE 
05 0046C “BYTE 
Od# 00470 “BYTE 
00# 0047A “BYTE 
OE 0047C “BYTE 
00# 0047F “BYTE 
OD# 00481 “BYTE 
00# 00498 “BYTE 
0D 0049F “BYTE 
OD# 004A1 “BYTE 
00# 00488 “BYTE 
00# 004C0 “BYTE 
OD# 00500 “BYTE 
00 0053F “BYTE 
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SYSSGET, CDUS_LISTLINE 
SCODES,NOWRT ,2 


R2 

CDUSGL_LINE_NUMBER 

#0. #16, CLD_RAB+34, LINE_INDEX 
CLD_RAB 

#1, “SYSS$GET 

RO, STATUS 

STATUS, #98938 

#3, RO 

STATUS, 3$ 


1178388 
fe. sousrercnt Ss ay ERROR 
cousGL rk 
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00000000G 00 98 fe 055 CALLS #0. CDUSEJECT_LISTING_PAGE ; 0786 
1 02 BRB 5 3 
0000" CF bd OSE 4$: PUSHL CLD_RAB+40 : 0789 
7E 0000" CF 3C 0006 MOVZWL CLD-RAB+34, (SP) ‘ 
9009" CF DD 0006 PUSHL COUSGL LINE_NUMBER : 
0001000 HH DD Bogs PUSHL #655 ; 0788 
00000000G 8F DD 00071 PUSHL #CDUS_LISTLINE g 
00000000G 00 05 FB 00077 CALLS #5, CBUSREPORT_LISTING_LINE $ 
0000' CF 85 OO07E SS: TSTW © CLD_RAB+34 : 0790 
8F 13 00082 BEQL~=SséSTS$ ; 
0000° CF Dé 00084 CLRL LINE_ INDEX 3 0794 
0000" CF 0000" CF 10 00 Eb 00088 6$: CMPZV «#0, #16, CLD_RAB+34, LINE_INDEX ; 0800 
12 1B 00091 BLEQU§ 7$ Fs 
0000' CF 06 00093 INCL LINE_ INDEX 3 0801 
50 0000" CF 0000" CF C1 00097 ADDL LINE- INDEX, CLD_RAB+40, RO 3 0802 
50 FF AQ 9A 0009F MOVZBL <-1(RO), R 3: 0803 
07 11 OO0A3 BRB 8$ : 
0000° CF D6 QOOAS 7$: INCL LINE_INDEX 3: 0804 
50 OD DO OO0A9 MOVL #13, RO ; 0805 
52 8E DO OOOAC 8$: MOVL (SP)+, R2 ; 0808 
05 OOOAF RSB 3 


; Routine Size: 176 bytes, Routine Base: S$CODE$ + 0107 
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The following internal routine is called to get an ty iy if the 
caller has told us that one is expected. An h-string is either a . 
normal quoted string, or it is an arbitrary sequence of characters ending 
at certain delimiters or at end of Line. 


ROUTINE get_h string : novalue 
= BEGIN 


local 
quoted: boolean, 
class: long; 
! Clear the token buffer. 
cdu$gq_token[len] = 0; 


! Pull a character from the CLD file. We may already have one saved from 
! the previous call. 


if not .char_saved then 

char = get_next_char(); 
char_saved = true; 
! Pass up any leading whitespace. 


while .char_classC.char] eqlu tkn_k_whitespace do 
char = get_next_char(); 


! If we now have a quotation mark, then it's a quoted string. Just return 
! and let the normal routine process it. 


if .char_class€.char] eqlu tkn_k_string then 
return; 


! Sit in a loop and collect the characters into re Ea token buffer. 
be quit when we encounter one of the ending delimiters, or if we hit end 
!o ne. 

loop ( 


Ctkn_k_eol, 


tkn_k_comment, 

tkn_kopen_paren. : 
tkn_k_close_paren): exitloop; 
Cinrange 

outrange): ; 


tes; 

ch$wchar(.char, “cdusog token(ptrJ+.cdu$gq_token[len]); 
increment (cduSgq. token Ten]); 

, char = get_next_char(); 


! Set the token globals to say it's a string. 


ores Pag 
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o= 


~o@ 


cdu$gl_token_class 


MMIWNOMW OW OUD 
oowooo @o won 


ouw 


tkn k string; 


str$upcase(cdu$gq_token,cdu$gq_token); 


OFFC 00000 GET_H_STRING: 
WORD 


0000° CF B84 00002 CLRW 
0000" CF €8 00006 BLBS 
FF42 30 00008 BSBW 
50 90 sii MOVB 
01 90 00013 1$ MOVB 
08 11 00018 BRB 
FF33 30 QOO1A 2$ BSBW 
50 90 00010 MOVB 
0000 CF 9A 00022 3$ MOVZBL 
Q0000°CF40 91 00027 CMPB 
EB 13 00020 BEQL 
Q000' CF 9A 0002F MOVZBL 
Q000'CF40 91 00034 CMPB 
5B 13 Q003A BEQL 
0000' CF 9A 0003C 4$: MOVZBL 
Q000°CF40 8F 00041 CASEB 
0020 00048 5$: - WORD 
0020 0005 
0038 0005 
0020 00060 
0000' CF 3€ 00068 6$: MOVZWL 
0000° gf C0 0006D ADDL2 
0 90 Ba tg MOVE 
0000° (CF 007 INCW 
FEDS 0079 BSBW 
50 007C MOVB 
B9 11 00081 BRB 


1 Upcase the string for compatibility with the old CDU, even though that 
i doesn't really seem reasonable. 


e R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
U$Ga TOKEN 
CHAR sive 1$ 
is 

#1, GHAR SAVED 
GET_NEXT_CHAR 

0, CHAR 

CHAR, RO 
SAR CLAGSERNE, #2 
CHAR, RO 
ERAR CLASSERG, #11 


AR, RO 
CHAR CLASSCROJ, #0, #15 


TOKEN, R1 
TOKENss. R1 
Q TOKEN 
-NEXT CHAR 
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14-Sep-1984 DI SKSVMSMASTERSCCDU. SRCILEXICAL 832: 1° 
| 0000" CF 0B D0 00083 7$: MOVL #11, _CDUSGL_TOKEN_CLASS : 0867 
| 0000" CF 9F 00088 PUSHAB CDU$GQ_TOKEN : 0872 
0000" CF 9F 0008C PUSHAB CDUSCO-TOKEN ; 
000000006 00 62 FB 00090 CALLS #2, STRSUPCASE : 
04 00097 8$: RET : 0876 


; Routine Size: 152 bytes, Routine Base: SCODE$ + 01B7 
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| 


Vv 14-Sep- 

; 473 pore ! If the Line number is zero, then a new CLD file has just been opened. 
; 476 ue i Reset the error counter, the error recovery flag, and the flag that 
; of? +18 ! tells us that a character is being saved for processing. 

; 47 0881 if .cdu$gl_line_number eqlu 0 then ( 

; 478 bass cdusel_¢\d_errors = 0; 

; 479 088 recovering = false; 

; 480 0884 char_saved = false; 

; 4481 0885 ; 

; 48 0886 

; 48 0887 : If we have been told that the caller is expecting an h-string, then we 
: 484 ttt : call a special internal routine to get it. If we end up with a null 
; 485 89 ! string, then it was either a normal quoted string, or the h-string 

; 486 0890 ! was null. 

3; 487 0891 

; 488 089 if not nullparameter(1) then : 

; 489 089 if .hint eqlu tkn_k_h_string then ( 

: 490 0894 get_h string(); 

; 491 0895 f Tcdu$gq_tokenLlen] nequ 0 then 

; 49 0896 return; 

; 49 0897 LE 

; 494 089 

3 495 0899 : We cycle through the following loop once for each ‘'noise’’ character, 
: 496 0900 g ! until we finally find an interesting one. Then we collect the token 
: 497 0901 ! and return. 

; 498 090 ¢ 

; 499 090 loop ( 

; 500 0904 3 

; $01 0905 3 : Pull a character from the CLD file. We may already have one 
; 502 0906 3 ! saved from the previous call. Initialize the token globals 
; 503 0907 H ! with the character. 

; 504 0908 

; 505 0909 3 if not .char_saved then 

; 506 0910 3 char = get_next_char(); 

5 Sor 0911 3 char_saved = false; 

; 508 0912 3 cdu$gq_tokenClen] = 1; 

3 344 get? ; ch$wchar(.char, .cdu$gq_token(ptr]); 

3; (3 0915 3 : Determine the class of the character by looking it up in the 
$ 31¢ Bor$ ; ! class table. Initialize the token globals with the class. 

3 2\% pate 3 cdu$gl_token_class = .char_class(.char]; 

; 218 b059 ! Case on the character class. 

; 318 092 case .cdu$gl_token_class from 0 to tkn_k_max_class of set 

s $19 092 Ctkn_k_invalid): 

; 520 0924 , : 

$s 6(3el 0925 ! Invalid characters result in an error message, and then 
3 256 B38 ; ! they are ignored. 

3 2S¢ +4 $ cdu$Sreport_syntax_error(msg(cdu$_invchar),1,.line_index); 
; 2ee 0930 {tkn_k_ignored, 

g Ser 0931 tkn_k_whitespace, 

; 528 O36 tkn_k_eol 

3. Sev 093 
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! ALL these characters are just ignored. 


tkn_k_open._paren, 
tkn_k_close_paren, 
tkn_k_open_angle, 
tkn_k_c ose_angle, 


tkn_k_dot 


! ALL of these single-character tokens are very simple. 
! We're all done. 


return; 
Ctkn_k comment]: 


! To handle a comment, we want to ignore the rest of the 
! Line. Advance the (ine index off the face of the earth 
!' so that GET_NEXT_CHAR will get the next Line. 


Line_index = 999999; 
Ctkn_k_string]: 


! To collect a string, we keep pulling characters and 

! adding them to the string. If we hit end-of-line, that's 
! an error. If we hit two string delimiters in a row, then 
! we include one in the string and keep going. 


(local 
char2: byte; 


géuSeq_tokent len) = 0; 
loop 


char2 = get_next_char(); 

selectoneu_.char_class({.char2] of set 

Ctkn_k_eol] 
(cdu$report_syntax_error(msg(cdu$_missquote)); 
exitloop;); 


Ctkn_k_ string): 
if (char = get_next_char()) sete -char2 then ( 
ch$wchar(.char2, .cdu pp, tgkentptr s+ .cdubiga, token ten)? 


increment (cdu$gq_tckenllen]); 
) else 
char saved = true; 
exitloop; 
Cotherwise): 


(ch$wchar(.char2, -cdusea. token(ptrJ+.cduseq_tokenllen)): 
; increment (cdu$gq_token(len]);); 
es; 


Liss-32 V4.0-74 Pa 2 
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=p 


aE 


|; 587 991 4 
; 588 992 4 
: 589 99 
: 590 994 
; 591 0995 
; 29¢ 099 
: 59 99 
> 594 0998 
; 595 0999 
; 596 1000 
: 597 1001 
; 598 100 
: 599 100 
: 600 1004 
> 601 1005 
; 602 1006 
: 603 1007 
: 604 1008 
; 605 1009 § 
: 606 1010 5 
: 607 1011 5 
: 608 1018 5 
; 609 1013. 5 
: 610 1014 4 
: 611 1015 4 
: 612 1016 4 
: 613 1017 4 
> 614 1018 4 
: 615 1019 4 
> 616 1020 4 
: 617 1021 4 
: 618 1022 4 
: 619 1023 4 
> 620 1024 4 
> 621 1025 3 
: 622 1026 3 
: 623 1027 é 
3 624 1028 
: 625 1029 1 

| 


poe 


nm 


1$-56p-19 4 23:41: 
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fo 
<= 
—> 


32 Vv 
R:CC 
); 
return;); 
Ctkn_k_h_ string): 
! There are no characters of class h-string. 
signal (msg(cdu$_inthchar)); 
Ctkn_k_symbol]: 
: To collect an symbol, we keep pulling characters and 
: adding them to the token until we hit something that 
! isn't a letter or digit. We save the final character 
! for later. 
(Loop ( 
char = get_next_char(); 
if .char_classCichar] nequ tkn_k_symbol then ett pin, 
ch$wchart.char, oo, token(ptrJ+.cdu$gq_tokenLlen ; 
increment (cdu$gq_token(Ten]J); 
char_saved = true; 
! Upcase the symbol for comparison purposes. 
str$upcase(cdu$gq_token,cdu$gq_token); 
! Complain if the symbol is longer than 31 characters. 


if scthignsokent Lan) tru 31 then 
cdu$report_syntax_error(msg(cdu$_symtoolong) ,1,cdu$gq_token); 


return;); 
tes; 
-EXTRN CDUS_INVCHAR, CDUS_MISSQUOTE 
~EXTRN CDUS-INTHCHAR, CDUS_SYMTOOLONG 
OFFC 00000 -ENTRY couseet NEXT TOKEN, Save R2,R3,R4,R5,R6,R7,- 
0000" CF 05 00002 TSTL CDUSGL_LINE_NUMBER 
OC 12 00006 BNEQ 1$ 
0000' CF 04 et CLRL CDUSGL_CLD_ERRORS 
0000' CF 94 0000C CLRB RECOVERING 
0000" CF 94 ebb CLRB CHAR_SAVED 
o¢ 95 00014 1$: TSTB (AP) 
17 13 00016 BEQL 2$ 
04 AC D5 00018 TSTL 4(AP) 
12 13 00018 BEQL 
0c 04 AC 01 00010 CMPL HINT, #12 


4.0-74 Pa 3 
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| C 12 00021 BNEQ © 2$ : 
| FF4O OCF $6 F 009 H CALLS #0, GET_H_ STRING + 0894 
0000' cf 85 000 TSTW cDUSGO_TOREN + 0895 
1 13 0002C¢ BEQL 5 : 
| 08 0000" CF EB OOO 28: -BEBS CHAR SAVED, 38 : 0909 
FE81 55 $00 4 BSBW  GET_NEXT_CHAR ; 0910 
0000" CF 50 90 00037 MOVB = RO, "CHAR : 
0000' CF 94 0003c 3$ CLRB = CHAR_SAVED + 0911 
0000" CF 01 BO 00040 MOVW #1, CDUSGQ_TOKEN ; 091 
50 0000" CF 9A 00045 MOVZBL CHAR, RO : 091 
0000° OF 50 90 00044 OVB RO, @CDUSGO_TOKEN+4 : 
0000" CF 0000°CF40 9A 0004F MOVZBL CHAR CLASSCROJ, CDUSGL_TOKEN_CLASS 7 0918 
OF 00 0000" CF CF 00057 CASEL  CDUSGL_TOKEN_CLASS, #0, #15 + 0922 

FFD2 FFD2 FFD2 0020 0005D 4$: -WORD 5$-4$,= : 

OOF 1 OOF 1 OOF 1 OOF 1 00065 2$-4$,- ; 

003E 0033 OOF 1 OOF 1 0006 2$-4$,- : 

O00F 1 00F 1 009D 008D 00075 2$-4$,- : 
14$-4$,- : 
14$-4$,- : 
14$-4$,- : 
14$-4$.- : 
14$-4$,- : 
14$-4$,- : 
6$-4$,- : 
7$-4$,- : 
11$-4§,- : 
12$-4$.- : 
14$-4$,- ; 
14$-4$ : 

0000" CF DD 0007D 5$: PUSHL LINE_INDEX > 0928 
01 DD 00081 PUSHL #1 : 
000000006 8F DD 00083 PUSHL #CDUS$_INVCHAR : 
0000v CF 93 Fe att CALLS #3, CBUSREPORT_SYNTAX_ERROR : 
0000" CF OO00F423F 8F DO 00090 6S: MOVL  § #999999, LINE_INDEX : 0958 
94 11 00099 - BRB $ : 
0000" CF 84 00098 7$: CLRW  CDU$SGQ_TOKEN : 0970 
FE16 30 OOO9F 8$: BSBW  GET_NERT_CHAR : 0972 
53 50 90 O00A2 MOVB 0, ~CHAR2 : 
52 53 9A O00AS MOVZBL CHAR2, R2 : 0973 
50 0000°CF42 9A 000A8 MOVZBL CHAR GLASSER2], RO ; 
03 50 91 OOOAE CMPB RO, > 0974 
0c 12 90081 BNEQ : 
000000006 8F 0D 00083 PUSHL #CDU$_MISSQUOTE > 0975 
0000v CF 01 FB 00089 CALLS #1, CBUSREPORT_SYNTAX_ERROR : 
04 OOOBE RET ; 
0B 50 91 OOOBF 9S: CMPB- sO, #11 : 0978 
13 13 000C2 BNEQ ; 
FDF1 30 000C4 BSBW  GET_NEXT_CHAR : 0979 
0000" CF 50 90 900¢7 MOVB RO, “CHAR : 
52 50 D1 000CC CMPL : 
06 13 900ct BEQL 10 : 
0000" CF 01 90 00001 MOVB #1, CHAR_SAVED > 0983 
04 00006 RET : 0982 
50 0000' CF 3C 00007 10$: MOVZWL CDUSGQ_TOKEN, RO : 0988 
50 0000" CF CO 000DC ADDL2  CDUSGQ~TOKEN+4, RO ; 


LEXICA 
vO4~006 
000000006 
0000° 
0000° 
000000006 
0000v 


; Routine Size: 335 bytes, Routin 


a 


1 

60 52 90 Q00E1 

0000" CF B6 QO0E4 

e 11 QO0E8 

000000006 8F DD OOOEA 

00 9 FB it ta 
FF35 Hy OOF 

FDBB 30 QOOFA 

CF 50 90 ita 

50 Q000' CF 9A 8106 
0D Q000'CF40 91 0010 

13 12 00100 

51 0000' CF 3C 0010F 

51 0000" CF CO 00114 

61 50 90 00119 

0000" CF B86 0011C 

D8 11 00120 

CF 01 90 00122 

0000' CF 9F 00127 

0000" CF 9F 0012B 

00 02 FB BO fe 

1F 0000" CF B61 00136 

11 18 00138 

0000" CF 9F 0013D 

01 DD 00141 

000000006 8F DD 00143 

CF 03 FB 00149 

04 0014E 


e Base: SCODES + 024F 
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118: 


12$: 


13$: 


14$: 


R 
U$SGQ_ TOKEN 


DUS_INTHCHAR 
» LTBSSIGNAL 


GET_NEXT_CHAR 
RO, CHAR 


$30 
724 
R2, (RO) 
CD 
8$ 


CHAR, RO 

CHAR. CLASSCROJ, #13 
CDUSGQ_TOKEN, R1 
CDUSGO TOKEN+4, R1 


(RT) 
EDusca_ TOKEN 
#1, CHAR_SAVED 
tpusca, TOKEN 
CDU$GQ- TOKEN 


#2, STRSUPCASE 
cusGa_ TOKEN, #31 


cbuses., TOKEN 


#CDU$S_SYMTOOLONG 
#3, CBUSREPORT_SYNTAX_ERROR 


Be Se Se Se Se Fe Fe Se Be Fe Ge Fe Fe Fe Ge Se Ge Fe Be Se Fe Be Se Be Ge 
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627 'e¢ 

628 : Description: This routine is called when the current token from the CLD 
629 ; file must be of a specified class. Optionally, we can also 
e ? check that the token is equal to a specified text string. 
08 : This routine also implements our simple error recovery 

63? } scheme. 

635 : Parameters: class | By value, the required class of the token, 
636 : text_string Optional, by reference, an ASCIC text string 
637 : that must be equal to the token. 

O38 ; hint Optional . by value, a hint to the 

or, CDUSGET_NEXT_TOKEN routine. See it. 

641 ! Returns: Nothing. 

64 : 

64 ! Notes: 

644 ' — 

645 

646 GLOBAL ROUTINE cdu$token_must_be(class: long, 

647 text_string: ref vector{,bytel, 

648 hint: long : novalue 
649 = BEGIN 

650 

651 builtin 


nullparameter; 


If we previously encountered a syntax error, then we are o "9 to recover 
from it. Eat tokens from the CLD file until we get the one that the 
caller demands be preeenss Hopefully we won't encounter end of file in 
the process. If this recovery succeeds, the input token stream will 

be resynchronized with the recursive descent. 


if .recovering then ( 
until .cdu$gl_token_class eqlu .class and 
(if nulTparaméter(2) then true else 
esBeel< -c@ton tokent Lend. .c@uSaq token(ptr], 
-text_stringlOJ,text_stringl1),2x"00')) 


if token_is(tkn_k_eof) then return; 
cdu$get_next_token(); 


: recovering = false; 


! Check that the current token is as required by the caller. If so, 
! get the next token. If not, we have a syntax error and don't get the 
! next token in case the required one is simply missing. 


SN NNN NA AA AAA AAAQASMIMAMNMM INN BB BEE EE EE AAAI 


| 


if -cdu$gl_token_class eqlu .class and 
(if nulTparameter(2) then true else 
caSeat(.cquseg token( Len}. .cduSeq token(ptr], 
-text_stringL0OJ,text_stringl1),2x"00')) then 


cdu$get_next_token((if nullparameter(3) then 0 else .hint)) 


ie Be Oe Oe Oe Oe Be Oe Oe Be Be Se Be Be Be Be Bs Oe Be Be Be Fe Se Be Oe Oe Be Se SHS He Se Oe Oe Oe Se Se SH Se Se Oe Oe Oe Oe Oe Oe Oe Se HSH Se See es ee See 
o 
uw 
w 
a ia a iia a a a ad od = os = = = sd ss = = = 8 = 
CDOOSOOOCOC QOOOCOCOCOCOCOCOSSCSOSOSOOOOOOSOOOCCOCOCOOC COCO SO OOOO OOOO OCOOOOOCOOOOoOO 
AAS $0 OO VOU EWN (0 ODNA VUE WIN 3 O ODNOAUE WN 0 OONOA UNE WR SO OONOAUE WN O 


RIPIPOPIWWIAPORIPONIPIPININWH BE B&B BH & BE AGPIDINIPINIPUDINININIDINY 4 A 9 I 9 I 


else 


1 
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; oR 10g? cdu$Sreport_syntax_error(msg(cdu$_invitem),1,cdu$gq_token); 
; 686 1089 return; 
; 687 1090 
; 688 1091 1 END; 
-EXTRN CDUS_INVITEM 
000C 00000 -ENTRY CDUSTOKEN_MUST_BE, Save R2,R3 : 1049 
38 0000° CF ? Bo 08s BLBC RECOVERING, 4$” : 1064 
OC 11 0000 BRB 2s : 1065 
04 0000" CF D1 00009 1$: CMPL CDUSGL_TOKEN_CLASS, #4 : 1070 
7D 13 QOO0E BEQL 10$ 3 
FE9C CF 00 FB 00010 CALLS #0, CDUSGET _NEXT_TOKEN : 1071. 
06 AC 0000" CF D1 00015 2$: CMPL CDUSGL_ TOKEN_CLASS, CLASS ; 1065) 
EC 12 0001B BNEQ 1$ : 
02 6C 91 0001D CMPB (AP), #2 : 1066 
19 1F 00020 BLSSU 3S 3 
08 AC 05 00022 TSTL 8 (AP) : 
14 13 00025 BEQL 3$ 3 
50 08 AC 00 00027 MOVL TEXT ~STRING, RO : 1068 
51 60 9A 00028 MOVZBL (RO); : 
51 00 0000° OF 0000" CF 2D 0002E cCMPC5 cDuséa” TOKEN, @CDUSGG_TOKEN+4, #0, RI, : 
01 AO 00037 1(RO) ~ 3 
CE 12 00039 BNEQ 1$ 3 
0000° CF 94 0003B 3$: CLRB RECOVERING : 1073 
04 AC 0000" CF 01 QOO3F 4$: CMPL CDUSGL_TOKEN_CLASS, CLASS : 1080 
35 12 00045 BNEQ 9$ : 
02 6C 91 00047 CMPB (AP), #2 : 1081 
19 1F QO04A BLSSU  5$ : 
08 AC 0 0004C TSTL 8 (AP) 3 
14 13 OO04F BEQL 5$ : 
50 08 AC 00 00051 MOVL TEXT_STRING, RO ; 1083 
51 60 9A 00055 MOVZBL (RO)? R1 : 
51 00 0000" ODF 0000° CF 2d 00058 CMPCS CDUSGQ_TOKEN, @CDUSGQ_TOKEN+4, #0, R1, - : 
01 Ad 8 1(RO) ; 
17 12 00063 BNEQ 9$ : 
03 6C 91 00065 5$: CMPB (AP), #3 : 1085. 
05S iF 00068 BLSSU 6$ : 
OC AC D5 0006A TSTL 12(AP) : 
04 12 0006D BNEQ 7$ : 
4 D4 ho 6$: CLRL -(SP) : 
03 11 00071 BRB 8$ 3 
OC AC DD 00073 7$: PUSHL HINT : 
FE36—sCCF 01 FB 00076 8$: CALLS #1, CDUSGET_NEXT_TOKEN ; 
04 00078 RET : 
0000° CF 9F OO007C 9$: PUSHAB CDU$GQ_TOKEN ; 1087 
01 DD Bn 08S PUSHL 1 : 
00000000G 8F DD 0008 PUSHL ggdus 1 NVITEM : 
0000v CF 03 FB 000 CALLS CBUSREPORT_SYNTAX_ERROR : 
04 0008D 10$: RET : 1091 | 


; Routine Size: 142 bytes, Routine Base: S$CODE$ + 039€ 
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710 


PRODIRD 2 ot ot 2 2 ot 
WN —"SODOONOUPWN— 


SN NNN SSNS 


OoCooooceoo 


wooooovnn 


ee el ce ee el ee ce el ee ce ee ee ee ce ce el el cl ce cee ce ce ce ee el ee el ee ee ee el eel ee ed 
ee ee ee ee ee ed ed ed ed nd 
=O OONAUE WN $0 ODA UNE WIN (DO ODNA NEW (OOD NOAUEWR 0 OONOUS wr 


FAWN IAIN NINININININID 2 2 SO SS S QOOOOOCOCCOO 
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: Description: This routine is called when a syntax error is encountered. 
: It signals the error so that it will appear on the terminal. 
It also includes the error in the Listing file, if any. 


This routine also implements part of our simple error 
recovery scheme. 


Parameters: Standard SPUTMSG argument List. 
Returns: Nothing. 


GLOBAL ROUTINE cdu$report_syntax_error : novalue 
= BEGIN 


builtin : 

argptr, 

calle: 

! If we are recovering from a previous syntax error, then ignore this new 


! one. Doing so prevents a lot of spurious error messages. 


if .recovering then 
return; 


! Signal the error along with the offending source Line. 

Lib$Ssignal (msg(cdu$_Listline) ,nobabble+3,.cdu$gl_line_number, 

. -cid_rabCrab$w_rszJ,.cld_rabCrab$l_rbfJ); 
callg(argptr(), Lib$signal); 

! Include the error in the Listing file. 

callg(argptr() ,cdu$Sreport_listing_lLine); 

! Keep track of the number of syntax errors. 

increment (cdu$gl_cld_errors); 


! Set a flag seying that we are recovering from a syntax error. This flag 
! will be reset Later when we resynchronize the input. 


recovering = true; 
return; 


END; 


0-74 Page 28 
COU SRCILEXICAL 8323109" (135, 


000? 88008 -ENTRY CDUSREPORT_SYNTAX_ERROR, Save nothing 


37 0000° CF 02 BLBS RECOVERING? 1$ : 


F 1 
LEXICA 15-Sep-1984 23: 0 VAX-11 Bliss-32 V4.0 
16e 505 14-Sep 19 7 F a} 3 DISKSVMSMASTER:(CC tou” She LEXICAL .B32; (3 
6° we, Bo 0007 PUSHL CLD =hApes $0 
7E 8 i: oe it MOVZWL CLD-RAB+3 
0 ' ¢F OD 0001 PUSHL COUSGL tine _NUMBER 
600) 0 F DD 00014 PUSHL #6 
00000000G 8F DD OOOIA PUSHL ° Dus Listh ine 
00000000G 00 05 FB 000 9 CALLS LIBSSIGNA 
000000006 00 6C FA 000 CALLG tA AP) , P1B$$1GNA 
000000006 00 6C FA 000 f CALLG CDUSREPORT LISTING_LINE 
0000' CF D6 000 INCL oD UséL CLD_ERRORS 
0000° CF 01 90 B88 9 MOVB » RECOVERING 
04 OO03E 1$: ET 
; Routine Size: 63 bytes, Routine Base: S$CODE$ + 042C¢ 
; 740 1}Se 1 END 
s 761 114 0 ELUDOM 
-EXTRN LIBSSIGNAL 
s PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 1344 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SGLOBALS 276 NOVEC, WRT. RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SPLITS $8 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 11351 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, EL, ON,NOPIC ,ALIGN(2) 
: Library Statistics 
eke: See ei ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$0UA28: (SYSLIBILIB.L32;1 18619 72 0 1000 00:01.9 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:LEXICAL/OBJ=OBJ$:LEXICAL MSRC$:LEXICAL/UPDATE=(ENH$:LEXICAL) 
: Size: 1131 code + 1648 data bytes 
; Run Time: 


Elapsed Time: 01:06.6 
Lines/CPU Min: $93! 
Lexemes/CPU-Min: 23571 


039 


1124 
1123 


wees 


: Memor 
3 Compile 


Used: 


192 pages 


tion Complete 
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